﻿Public Class MainGUI

    Private Sub MainGUI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       


    End Sub

    Private Sub DanhSachPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmDSPhong As New frmQuanLyPhong()
        frmDSPhong.Show()
    End Sub

    Private Sub LapPhieuThuePhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmPhieuThuePhong As New frmTraCuuPhieuThue()
        frmPhieuThuePhong.Show()
    End Sub

    Private Sub BaoCaoDoanhThuTheoThangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmBaocao As New frmXuatBaoCaoDoanhThuLoaiPhong()
        frmBaocao.ShowDialog()
    End Sub

    Private Sub LapPhongMoiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub DanhSachThuePhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LapBaoCaoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TraCuuPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmTraCuu As New frmTraCuuPhong()
        frmTraCuu.Show()
    End Sub

    Private Sub BaoCaoDoanhThuTheoLoaiPhongToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmLapBCTheoLP As New frmXuatBaoCaoDoanhThuLoaiPhong()
        frmLapBCTheoLP.Show()
    End Sub

    Private Sub BaoCaoDoanhThuTheoMatDoSuDungPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmXuatBCMatDoSDPhong As New frmXuatBaoCaoMatDoSuDungPhong()
        frmXuatBCMatDoSDPhong.Show()
    End Sub

    Private Sub BaoCaoDoanhThuTheoLoaiPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmBCDoanhThuTheoLoaiPhong As New frmLapBaoCaoDoanhThuLoaiPhong()
        frmBCDoanhThuTheoLoaiPhong.Show()
    End Sub

    Private Sub BaoCaoTheoMatDoSuDungPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frmBCTheoMatDoSDPhong As New frmLapBCTheoMatDoSDPhong()
        frmBCTheoMatDoSDPhong.Show()
    End Sub

    Private Sub QuanLyLuuTruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuanLyLuuTruToolStripMenuItem.Click

    End Sub

    Private Sub DangNhapVaXuatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DangNhapVaXuatToolStripMenuItem.Click
        Dim frmDangNhap As New DangNhap()
        frmDangNhap.Show()
    End Sub

    Private Sub ThoatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoatToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub TraCuuPhongToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCuuPhongToolStripMenuItem.Click
        Dim frmTraCuuPhong As New frmTraCuuPhong()
        frmTraCuuPhong.Show()
    End Sub

    Private Sub TraCuuPhieuThueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCuuPhieuThueToolStripMenuItem.Click
        Dim frmTraCuuPhieuThue As New frmTraCuuPhieuThue()
        frmTraCuuPhieuThue.Show()
    End Sub

    Private Sub QuanLyPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuanLyPhongToolStripMenuItem.Click
       
    End Sub

    Private Sub QuanLyPhieuThueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuanLyPhieuThueToolStripMenuItem.Click
        Dim frmQLPhieuThue As New frmThemPhieuThue()
        frmQLPhieuThue.Show()
    End Sub

    Private Sub DoanhThuTheoLoaiPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DoanhThuTheoLoaiPhongToolStripMenuItem.Click
        Dim frmDTLoaiPhong As New frmLapBaoCaoDoanhThuLoaiPhong()
        frmDTLoaiPhong.Show()
    End Sub

    Private Sub DoanhThuTheoMatDoSuDungPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DoanhThuTheoMatDoSuDungPhongToolStripMenuItem.Click
        Dim frmBCMatDoSDPhong As New frmLapBCTheoMatDoSDPhong()
        frmBCMatDoSDPhong.Show()
    End Sub

    Private Sub LapHoaDonToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapHoaDonToolStripMenuItem.Click
        Dim frmLapHoaDon As New frmLapHoaDon()
        frmLapHoaDon.Show()
    End Sub

    Private Sub XuatHoaDonToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XuatHoaDonToolStripMenuItem.Click
        Dim frmXuatHoaDon As New frmXuatHoaDonThanhToan()
        frmXuatHoaDon.Show()
    End Sub

    Private Sub QuanLyThongTinLoaiPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuanLyThongTinLoaiPhongToolStripMenuItem.Click
        Dim frmQLLoaiPhong As New frmLoaiPhong()
        frmQLLoaiPhong.Show()
    End Sub

    Private Sub QuanLyThongTinPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuanLyThongTinPhongToolStripMenuItem.Click
        Dim frmQuanlyphong As New frmQuanLyPhong()
        frmQuanlyphong.Show()
    End Sub

    Private Sub QuyDinhChungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuyDinhChungToolStripMenuItem.Click
        Dim frmQuydinh As New frmQuyDinh()
        frmQuydinh.Show()
    End Sub

    Private Sub QuanLyLoaiKhachHangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuanLyLoaiKhachHangToolStripMenuItem.Click
        Dim frmQLLoaiKH As New frmLoaiKhachHang()
        frmQLLoaiKH.Show()
    End Sub
End Class
